home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 23 / AMIGAplus Sonderheft 23 (2000)(Falke)(DE)[!].iso / Updates / Datatypes / XPM-DT / Install next >
Text File  |  1999-12-26  |  2KB  |  80 lines
  1. ; $VER: Install 1.0 (27.12.99)
  2. ; Installation-Script for the xpm.datatype
  3.  
  4. ; ----- German string section -----
  5.  
  6. (set #language (getenv("language")))
  7. (if( <> (strlen #language) 0)
  8. (
  9.   (set @language #language)
  10. ))
  11.  
  12. (if (= @language "deutsch")
  13. (
  14.  (set #overwrite-request
  15.  (cat "Es wurde ein anderer xpm.datatype gefunden (Version %ld.%ld).\n"
  16.       "Soll er wirklich ersetzt werden?"))
  17.  
  18.  (set #datatype-prompt "xpm.datatype kopieren?")
  19. )
  20.  
  21. ; ----- English string section -----
  22.  
  23. (
  24.  (set #overwrite-request
  25.  (cat "It seems that you have another xpm.datatype (version %ld.%ld) installed.\n"
  26.       "Should it be replaced?"))
  27.  (set #datatype-prompt "Copy xpm.datatype?")
  28.  
  29. ))
  30. ; ----------------------------------
  31.  
  32. ;(set @default-dest "RAM:")
  33.  
  34. (complete 0)
  35.  
  36. (if (= (exists "SYS:Classes/DataTypes/xpm.datatype") 1)
  37. (
  38.   (set vernum (getversion "SYS:Classes/DataTypes/xpm.datatype"))
  39.   (set ver (/ vernum 65536))
  40.   (set rev (- vernum (* ver 65536) ) )
  41.  
  42.   (if( > ver 43)
  43.   (
  44.     (set #overwrite (askbool (prompt (#overwrite-request ver rev))
  45.                              (help @askbool-help)
  46.                              (default 1)))
  47.  
  48.     (if( = #overwrite 0)
  49.     (
  50.       (exit)
  51.     ))
  52.  
  53.  
  54.   ))
  55. ))
  56.  
  57. (set @default-dest "SYS:")
  58.  
  59. (complete 25)
  60.  
  61. (copylib (prompt #datatype-prompt)
  62.          (confirm)
  63.          (source "xpm.datatype")
  64.          (dest "SYS:Classes/DataTypes")
  65.          (help @copylib-help))
  66.  
  67. (complete 50)
  68.  
  69. (copyfiles
  70.            (source "XPM")
  71.            (dest "DEVS:DataTypes")
  72.            (infos)
  73.            (noposition))
  74.  
  75. (complete 75)
  76.  
  77. (execute ("C:AddDataTypes REFRESH"))
  78.  
  79. (complete 100)
  80.